home *** CD-ROM | disk | FTP | other *** search
/ Beginning Mac Programming / Beginning Mac Programming.bin / pc / Open Me for REALbasic 3 / REALbasic 3.2 / Example Projects / Reusable Classes_Code / REALfishSource / example of scripting REALfish next >
Encoding:
Text File  |  2000-10-07  |  507 b   |  17 lines
  1. tell application "REALfish"
  2.     make key from username "matt" password "hoho"
  3.     set myKey to the result
  4.     make subkeys from key myKey
  5.     encipher plaintext "Congratulations, it's working perfectly."
  6. end tell
  7. set mySecretMessage to the result
  8. -- now we imagine that on some future occasion we decrypt the message
  9. tell application "REALfish"
  10.     make key from username "matt" password "hoho"
  11.     set myKey to the result
  12.     make subkeys from key myKey
  13.     decipher ciphertext mySecretMessage
  14. end tell
  15. display dialog the result
  16.  
  17.